﻿Public Class Varekjop
    Public Property id As ULong
    Public Property dato As Date
    Public Property ingredienser As List(Of Ingrediens) 'eventuelt pakker denne listen inn i et eget objekt????
    Public Property belop As Single
    Public Property levert As Boolean

    Private enIngrediens As New Ingrediens


    Public Sub New() ' defaul konstruktør
    End Sub

    Public Sub New(ByVal innlestId As ULong)
        id = innlestId
    End Sub

    Public Sub LeggTilIngrediens(ByVal iNavn, ByVal iInnPris, ByVal iUtPris, ByVal iBeholdning)
        'legge til hvis den ikke finnes på lager fra før
        Ingrediens.AddIngrediens(iNavn, iInnPris, iUtPris, iBeholdning)
    End Sub

    Public Sub Lagre()
        ' todo: må implementeres.....
        MsgBox("todo: må implementeres.....")
    End Sub

    Public Shared Sub NyttVarekjop(ByRef ing As Ingrediens, ByVal antall As Integer)

        Dim thisDay As String = "'" & Date.Now.Year & "-" & Date.Now.Month & "-" & Date.Now.Day & "'"

        Dim søkestreng As String = "INSERT INTO varekjop (vareKjopDato, vareKjopAntall, ingrediensId )  VALUES (" & thisDay & ",'" & antall & "','" & ing.id & "')"
        Dim dt As New DataTable
        dt = Database.Query(søkestreng)

        ' burde returnere om det gikk greit eller ikke... eller vise resultatet

    End Sub



End Class
